cond
start
52 .aimdx store
40 rnd 50 store
.tie inc
stop

cond
*50 4 <
start
-10 .dn store
0 .fixpos store
stop

cond
*.eye5 0 >
*.refeye *.myeye !=
start
*.eye5 30 sub 0 floor .fixpos store
-1 .shoot store
0 .aimdx store
*.maxvel *.vel sub .up store
1 .strpoison store
stop

cond
*.robage 1 =
start
.tie inc
628 .aimdx store
stop

cond
*.nrg 14000 >
start
50 .repro store
628 .aimdx store
stop

end
